Word Play Farm/Word Play Farm.iso/pc/movies/rwrdfinl.dxr/00158.ls

Text File | 1996-07-26 | 442 b | 21 lines

on mouseUp
  global lastName
  set f to value(lastName) - 1
  if f = 0 then
    set f to 6
  end if
  set w to string(f)
  set fld to lastName & "Fld"
  repeat with t = 2 to 7
    put the castNum of sprite t into line t of field fld
  end repeat
  go(w)
  set fld to lastName & "Fld"
  repeat with t = 2 to 7
    puppetSprite(t, 1)
    set x to value(line t of field fld)
    set the castNum of sprite t to x
  end repeat
  updateStage()
end